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Abstract 

In this paper, we introduce Applicative functors — an abstract characterisation of an ap- 
phcative style of effectful programming, weaker than Monads and hence more widespread. 
Indeed, it is the ubiquity of this programming pattern that drew us to the abstraction. 
We retrace our steps in this paper, introducing the appUcative pattern by diverse exam- 
ples, then abstracting it to define the Applicative type class and introducing a bracket 
notation which interprets the normal application syntax in the idiom of an Applicative 
functor. Further, we develop the properties of applicative functors and the generic operar 
tions they support. We close by identifying the categorical structure of applicative functors 
and examining their relationship both with Monads and with Arrows. 



1 Introduction 

This is the story of a pattern that popped up time and again in our daily work, 
programming in Haskell (Peyton Jones, 2003), until the temptation to abstract it 
became irresistable. Let us illustrate with some examples. 

Sequencing commands One often wants to execute a sequence of commands and 
collect the sequence of their responses, and indeed there is such a function in the 
Haskell Prelude (here specialised to 10): 

sequence :: [10 a] 10 [a] 
sequence [] = return [] 
sequence (c : cs) = do 

a; <— c 

xs <— sequence cs 
return {x : xs) 

In the (c : cs) case, we collect the values of some effectful computations, which we 
then use as the arguments to a pure function (:). We could avoid the need for names 
to wire these values through to their point of usage if we had a kind of 'effectful 
application'. Fortunately, exactly such a thing lives in the standard Monad library: 
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ap :: Monad m=>m{a^b)^ma^mb 
ap mf mx = do 

f ^ mf 
X <— mx 
return (/ x) 

Using this function we could rewrite sequence as: 

sequence :: [10 a] 10 [a] 
sequence [] = return [] 

sequence (c : cs) = return (:) 'ap' c 'ap' sequence cs 

where the return operation, which every Monad must provide, lifts pure values to 
the efFectful world, whilst ap provides 'application' within it. 

Except for the noise of the returns and aps, this definition is in a fairly standard 
applicative style, even though effects are present. 

Transposing 'matrices' Suppose we represent matrices (somewhat approximately) 
by lists of lists. A common operation on matrices is transposition^. 

transpose:: [[a]] [[a]] 

transpose [] = repeat [] 

transpose {xs : xss) — zipWith (:) xs (transpose xss) 

Now, the binary zipWith is one of a family of operations that 'vectorise' pure func- 
tions. As Daniel Pridlender and Mia Indrika (2000) point out, the entire family can 
be generated from repeat, which generates an infinite stream from its argument, 
and zapp, a kind of 'zippy' application. 

repeat :: a ^ [a] ^aPP " [« ^ &] ^ [«] ^ [&] 

repeat x = x : repeat x ^^PP (/ /«) {x : xs) = f x : zapp fs xs 

zapp_ _ = [] 

The general scheme is as follows: 

zipWith„ :: {ai -> > a„ b) ^ [oi] > [a„] ^ [b] 

zipWith„ / xsi . . . xsn = repeat / 'zapp' xsi 'zapp' . . . 'zapp' xSn 

In particular, transposition becomes 

transpose:: [[a]] [[a]] 
transpose [] = repeat [] 

transpose {xs : xss) = repeat (:) 'zapp' xs 'zapp' transpose xss 

Except for the noise of the repeats and zapps, this definition is in a fairly standard 
applicative style, even though we are working with vectors. 

Evaluating expressions When implementing an evaluator for a language of expres- 
sions, it is customary to pass around an environment, giving values to the free 
variables. Here is a very simple example 

^ This function differs from the one in the standard Ubrary in its treatment of ragged lists 
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data Exp v = Var v 
I Val Int 



I Add (Exp v) (Exp v) 
eval :: Exp v Env v Int 
eval (Var x) 7 = fetch x 7 
eval (Val i) 7 = 1 
eval (Add p q) ^ = eval p 7 + eval q 7 

where Env u is some notion of environment and fetch x projects the value for the 
variable x. 

We can eliminate the clutter of the expHcitly threaded environment with a little 
help from some very old friends, designed for this purpose: 

eval :: Exp v — > Env v — > Int 

eval (Var x) = fetch x 
eval (Val i) =Ki 

eval (Add p q) =K (+) 'S' eval p eval q 

where 

K :: a env ^ a § :: {env a ^ b) ^ {env ^ a) — > {env — > b) 

K .T 7 = .1; S e/ es 7 = (e/ 7) (es 7) 

Except for the noise of the K and S combinators^, this definition of eval is in a 
fairly standard applicative style, even though we are abstracting an environment. 



2 The Applicative class 

We have seen three examples of this 'pure function applied to funny arguments' 
pattern in apparently quite diverse fields — let us now abstract out what they have 
in common. In each example, there is a type constructor / that embeds the usual 
notion of value, but supports its own peculiar way of giving meaning to the usual 
applicative language -its idiom. We correspondingly introduce the Applicative class: 

infixl 4 ® 

class Applicative / where 

pure :: a ^ f a 

(®) --f {a^b)^f a^f b 

This class generalises S and K from threading an environment to threading an effect 
in general. 

We shall require the following laws for applicative functors: 

identity pure \d® u = u 

composition pure {■) ® u ® v ® w — u ® {v ® w) 

homomorphism pure/® pure 2; = pure (/ x) 

interchange u ® pure x = pure (A/ f x)® u 



^ also known as the return and ap of the environment Monad 
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The idea is that pure embeds pure computations into the pure fragment of an 
effectful world — ^the resulting computations may thus be shunted around freely, as 
long as the order of the genuinely effectful computations is preserved. 

You can easily check that applicative functors are indeed functors, with the fol- 
lowing action on functions: 

(<$>) :: Applicative f ^ {a ^ b) ^ f a ^ f b 
f <$> u = pure f ® u 

Moreover, any expression built from the Applicative combinators can be transformed 
to a canonical form in which a single pure function is 'applied' to the effectful parts 
in depth-first order: 

pure f ® ui® ■ ■ ■ ® Un 

This canonical form captures the essence of Applicative programming: computa- 
tions have a fixed structure, given by the pure function, and a sequence of sub- 
computations, given by the effectful arguments. We therefore find it convenient, at 
least within this paper, to write this form using a special bracket notation. 

If Ui ... Unj 

indicating a shift into the idiom of an Applicative functor, where a pure function is 
applied to a sequence of effectful arguments using the appropriate ®. Our intention 
is to give an indication that effects are present, whilst retaining readabihty of code. 

Given Haskell extended with multi-parameter type classes, enthusiasts for over- 
loading may replace 'J' and ']' by identifiers il and E with the right behaviour'^. 

The 10 monad, and indeed any Monad, can be made Applicative by taking pure = 
return and (®) = ap. We could alternatively use the variant of ap that performs 
the computations in the opposite order, but we shall keep to the left-to-right order 
in this paper. Sometimes we can implement the Applicative interface a little more 
directly, as with (^) env: 

instance Applicative ((^) env) where 
pure a; = A7 — > a; — K 

e/ ® eo; = A7 — > (e/ 7) {ex 7) ~ § 

With these instances, sequence and eval become: 

sequence :: [10 a] 10 [a] 

sequence [] =I[]1 

sequence (c : cs) = |(:) c (sequence cs)] 

eval :: Exp v Env v — > Int 

eval (Var x) = fetch x 

eval (Val i) =1?;] 

eval (Add p q) = |[(+) (eval p) (eval g)] 

If we want to do the same for our transpose example, we shall have to avoid the 
^ Hint: Define an overloaded function applicative u vl ... vn 1 = u ® vl ® . . . ® vn 
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library's 'list of successes' (Wadler, 1985) monad and take instead an instance 
Applicative [] that supports 'vectorisation', where pure = repeat and (®) = zapp, 
yielding 

transpose :: [[a]] — > [[a]] 

transpose [] =[[]! 

transpose {xs : xss) = |(:) xs (transpose xss)} 

In fact, repeat and zapp are not the return and ap of any Monad. 

3 Traversing data structures 

Have you noticed that sequence and transpose now look rather alike? The details 
that distinguish the two programs are inferred by the compiler from their types. 
Both are instances of the applicative distributor for lists: 

dist :: Applicative [a] 
dist[] 

dist {v : vs) = |[(:) v (dist vs)} 

Distribution is often used together with 'map'. For example, given the monadic 
'failure-propagation' applicative functor for Maybe, we can map some failure-prone 

operation (a function in a Maybe b) across a list of inputs in such a way that 

any individual failure causes failure overall. 

flakyMap :: (a Maybe b) [a] Maybe [&] 
flakyMap f ss = dist (fmap / ss) 

As you can see, flakyMap traverses ss twice — once to apply /, and again to collect the 
results. More generally, it is preferable to define this applicative mapping operation 
directly, with a single traversal: 

traverse :: Applicative f ^ {a f b) [a] f [b] 
traverse/ [] = 

traverse / {x : xs) — |(:) (/ x) (traverse / xs)j 

This is just the way you would implement the ordinary fmap for lists, but with 
the right-hand sides wrapped in |- • •], shifting them into the idiom. Just like fmap, 
traverse is a useful gadget to have for many data structures, hence we introduce the 
type class Traversable, capturing functorial data structures through which we can 
thread an applicative computation: 

class Traversable t where 
traverse :: Applicative / => {a 
dist :: Applicative / 
dist = traverse id 

Of course, we can recover an ordinary 'map' operator by taking / to be the identity — 
the simple applicative functor in which all computations are pure: 

newtype Id a = An{an :: a} 



fb)^ta ^f{tb) 
t{fa)^f{ta) 
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Haskell's newtype declarations allow us to shunt the syntax of types around with- 
out changing the run-time notion of value or incurring any run-time cost. The 
'labelled field' notation defines the projection an :: Id a ^ a at the same time as the 
constructor An :: a ^ Id a. The usual applicative functor has the usual application: 

instance Applicative Id where 
pure = An 

An / ® An a; = An (/ x) 

So, with the newtype signalling which Applicative functor to thread, we have 

fmap / = an • traverse (An • /) 

Meertens (1998) defined generic dist-like operators, families of functions of type 
t {f a) ^ f (t a) for every regular functor t (that is, 'ordinary' uniform datatype 
constructors with one parameter, constructed by recursive sums of products). His 
conditions on / are satisfied by applicative functors, so the regular type constructors 
can all be made instances of Traversable. The rule-of-thumb for traverse is 'like fmap 
but with [[•••] on the right'. For example, here is the definition for trees: 

data Tree a = Leaf | Node (Tree a) a (Tree a) 

instance Traversable Tree where 
traverse/ Leaf = J Leaf] 

traverse / (Node I x r) = JNode (traverse / I) (/ x) (traverse / r)] 

This construction even works for non-regular types. However, not every Functor 
is Traversable. For example, the functor (— >) env cannot in general be Traversable. 
To see why, take env = Integer and try to distribute the Maybe functor! 

Although Meertens did suggest that threading monads might always work, his 
primary motivation was to generalise reduction or 'crush' operators, such as flat- 
tening trees and summing lists. We shall turn to these in the next section. 

4 Monoids are phantom Applicative functors 

The data that one may sensibly accumulate have the Monoid structure: 

class Monoid o where 

0 :: 0 

(®) :: 0 ^ o ^ o 

such that is an associative operation with identity 0. The functional program- 
ming world is full of monoids — numeric types (with respect to zero and plus, or one 
and times), lists with respect to [] and -ff, and many others so generic technology 
for working with them could well prove to be useful. Fortunately, every monoid 
induces an applicative functor, albeit in a slightly peculiar way: 

newtype Accy o a = Acc{acc :: o} 

Accy 0 a is a phantom type (Leijen & Meijer, 1999) — its values have nothing to do 
with a, but it does yield the applicative functor of accumulating computations: 
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instance Monoid o => Applicative (Accy o) where 
pure _ = Acc 0 

Acc oi ® Acc 02 = Acc (oi ® 02) 

Now reduction or 'crushing' is just a special kind of traversal, in the same way as 
with any other applicative functor, just as Meertens suggested: 

accumulate :: (Traversable t, Monoid o) ^ {a ^ o) ^ t a ^ o 
accumulate / = acc ■ traverse (Acc • /) 

reduce :: (Traversable t, Monoid o) t o — > o 
reduce = accumulate id 

Operations like flattening and concatenation become straightforward: 
flatten :: Tree a ^ [o] concat :: [[a]] [a] 

flatten = accumulate (:[]) concat = reduce 

We can extract even more work from instance inference if we use the type system 
to distinguish different monoids available for a given datatype. Here, we use the 
disjunctive structure of Bool to test for the presence of an element satisfying a 
given predicate: 

newtype Mighty = Might{ might :: Bool} 

instance Monoid Mighty where 
0 = Might False 

Might X © Might y = Might (x V y) 

any :: Traversable t ^ {a ^ Bool) ^ t a Bool 
any p = might • accumulate (Might • p) 

Now any • (=) behaves just as the elem function for lists, but it can also tell 
whether a variable from v occurs free in an Exp v. Of course, Bool also has a 
conjunctive Musty structure, which is just as easy to exploit. 

5 Applicative versus Monad? 

We have seen that every Monad can be made Applicative via return and ap. Indeed, 
two of our three introductory examples of applicative functors involved the 10 
monad and the environment monad (^) env. However the Applicative structure we 
defined on lists is not monadic, and nor is Accy 0 (unless 0 is the trivial one-point 
monoid): return can deliver 0, but if you try to define 

(»=) :: Accy 0 a ^ (a — > Accy o b) Accy 0 b 

you'll find it tricky to extract an a from the first argument to supply to the second — 
all you get is an 0. The ® for Accy 0 is not the ap of a monad. 

So now we know: there are strictly more Applicative functors than Monads. Should 
we just throw the Monad class away and use Applicative instead? Of course not! The 

reason there are fewer monads is just that the Monad structure is more powerful. 
Intuitively, the (>=) ::m a ^ {a m b) ^ m b oi some Monad m allows the value 
returned by one computation to influence the choice of another, whereas ® keeps 
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the structure of a computation fixed, just sequencing the effects. For example, one 
may write 

miffy :: Monad m => m Bool -^ma^ma^ma 
mifFy mb mt me = do 

b <— mb 

if b then mt else m,e 

so that the value of mb will choose between the computations mt and me, perform- 
ing only one, whilst 

iffy :: Applicative f =^ f Bool -^fa^fa^fa 
iffy fb ft fe = I cond fb ft fe} where 
cond b t e = \f b then t else e 

performs the effects of all three computations, using the value of ft to choose only 
between the values of ft and ft. This can be a bad thing: for example, 

iffy [Truel (tj Nothing = Nothing 

because the 'else' computation fails, even though its value is not needed, but 

miffy ITrue] p] Nothing = |<] 

However, if you are working with miffy, it is probably because the condition 
is an expression with effectful components, so the idiom syntax provides quite a 
convenient extension to the monadic toolkit: 

miffy getSpeed. getSpeedLimitJ stepOnIt checkMirror 

The moral is this: if you've got an Applicative fimctor. that's good; if you've also 
got a Monad, that's even better! And the dual of the moral is this: if you want a 
Monad, that's good; if you only want an Applicative functor, that's even better! 

One situation where the full power of monads is not always required is parsing, for 
which Rojcmo (1995) proposed a interface including the equivalents of pure and '®' 
as an alternative to monadic parsers (Hutton & Meijer, 1998). Several ingenious 
non-monadic implementations have been developed by Swierstra and colleagues 
(Swierstra & Duponchccl, 1996; Baars et ai, 2004). Because the structure of these 
parsers is independent of the results of parsing, these implementations are able to 
analyse the grammar lazily and generate very efficient parsers. 

Composing applicative functors The weakness of applicative functors makes them 
easier to construct from components. In particular, although only certain pairs of 
monads are composable (Barr & Wells, 1984), the Applicative class is closed under 
composition, 

newtype {f o g) a = Comp{comp :: (/ {g a)) } 

just by lifting the inner Applicative operations to the outer layer: 

instance (Applicative /, Applicative g) Applicative (/ o g) where 
pure a; = Comp |(pure a;)] 

Comp/s ® Comp xs = Comp |(®) ft xsj 
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As a consequence, the composition of two monads may not be a monad, but it is 
certainly applicative. For example, both Maybe o 10 and 10 o Maybe are applicative: 
10 o Maybe is an applicative functor in which computations have a notion of 'failure' 
and 'prioritised choice', even if their 'real world' side-effects cannot be undone. Note 
that 10 and Maybe may also be composed as monads (though not vice versa), but the 
applicative functor determined by the composed monad differs from the composed 
applicative functor: the binding power of the monad allows the second 10 action to 
be aborted if the first returns a failure. 

We began this section by observing that Accy o is not a monad. However, given 
Monoid o, it can be defined as the composition of two applicative functors derived 
from monads — which two, we leave as an exercise. 

Accumulating exceptions The following type may be used to model exceptions: 

data Except err a = OK a \ Failed err 

A Monad instance for this type must abort the computation on the first error, as 
there is then no value to pass to the second argument of '>='. However with the 
Applicative interface we can continue in the face of errors: 

instance Monoid err Applicative (Except err) where 
pure = OK 

OK/® OK a; = OK (/ a;) 

OK / ® Failed err = Failed err 

Failed err ® OK x = Failed err 

Failed erri ® Failed err2 = Failed (erri ® err2) 

This could be used to collect errors by using the list monoid (as in unpublished 
work by Duncan Coutts), or to summarise them in some way. 

6 Applicative functors and Arrows 

To handle situations where monads were inapplicable, Hughes (2000) defined an 
interface that he called arrows, defined by the following class with nine axioms: 

class Arrow (~^) where 
arr :: (a — > 6) — > (a ~^ b) 

(:») :: (a &) ^ (& c) -> (a c) 
first :: {a ^ b) ^ {{a, c) ^ {b, c)) 

Examples include ordinary '^', Kleisli arrows of monads and comonads, and stream 
processors. Equivalent structures called Freyd-categories had been independently 
developed to structure dcnotational semantics (Power & Robinson, 1997). 

There are similarities to the Applicative interface, with arr generalising pure. As 
with '®', the '^' operation does not allow the result of the first computation to 
affect the choice of the second. However it does arrange for that result to be fed to 
the second computation. 

By fixing the first argument of an arrow type, we obtain an applicative functor, 
generalising the environment functor we saw earlier: 
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newtype EnvArrow (^) env a = Env {env a) 

instance Arrow (~-+) Applicative (EnvArrow (^) env) where 
pure X = Env (arr (const x)) 

Env u ® Env v = Env {uAv ^ arr (A(/, x) f x)) 
where uAv = arr dup ^ first u ^ arr swap ^ first v ^ arr swap 

dup a = (a, a) 
swap {a, b) = {b, a) 

In the other direction, each applicative functor defines an arrow constructor that 
adds static information to an existing arrow: 

newtype StaticArrow/ (~^) a b = Static (/ (a ^ b)) 

instance (Applicative /, Arrow (-^)) Arrow (StaticArrow / (~-+)) where 
arr/ = Static [(arr/)] 

Static / Static 5 = Static |(:g>) / ^1 
first (Static /) = Static [first /] 

To date, most applications of the extra generality provided by arrows over monads 
have been either various forms of process, in which components may consume mul- 
tiple inputs, or computing static properties of components. Indeed one of Hughes's 
motivations was the parsers of Swierstra and Duponcheel (1996). It may turn out 
that applicative functors are more convenient for applications of the second class. 



7 Applicative functors, categorically 

The Applicative class features the asymmetrical operation '(g)', but there is an equiv- 
alent symmetrical definition. 

class Functor / => Monoidal / where 

unit:: / () 

(*) -.-.f a-^f b^f {a,b) 

These operations are clearly definable for any Applicative functor: 

unit :: Applicative /=>/ 0 
unit = pure () 

(★) :: Applicative / / a ^ / 6 ^ / (a, 6) 
fa*fb = U,)fafbj 

Moreover, we can recover the Applicative interface from Monoidal as follows: 

pure :: Monoidal f a ^ f a 

pure a; = fmap (A_ — > z) unit 

(®) :: Monoidal/ ^/ (a ^ &) ->/ a ->/ 6 

mf ® mx = fmap (A(/, x) f x) (mf ★ mx) 

The laws of Applicative given in Section 2 are equivalent to the usual Functor laws, 
plus the following laws of Monoidal: 



Functional pearl 



11 



naturality of * fmap {f x g) {u -k v) = fmapfu-kfmapgv 

left identity fmap snd (unit* = v 

right identity fmap fst (ji * unit) = u 

associativity fmap assoc {u*{v * w)) = {u-kv)-kw 

for the functions 

(x) :: {a^b)^{c^ d)^ (a, c) ^ {b, d) 
if X 9) ix,y) = if x,gy) 
assoc :: (a, (&, c)) {{a, b), c) 
assoc (a, {b, c)) = ((a, b), c) 

Fans of category theory will recognise the above laws as the properties of a lax 
monoidal functor for the monoidal structure given by products. However the functor 
composition and naturality equations are actually stronger than their categorical 
counterparts. This is because we are working in a higher-order language, in which 
function expressions may include variables from the environment, as in the above 
definition of pure for iVlonoidai functors. In the first-order language of category 
theory, such data flow must be explicitly plumbed using functors with tensorial 
strength, an arrow: 

tAB ■■ Ax FB — > F{Ax B) 

satisfying standard equations. The natural transformation m corresponding to 
must also respect the strength: 

{Ax B) X {FC X FD) ^ {A x F C) x {B x F D) 



{A X B) X m 



t X t 



{AxB)xF{CxD) F{AxC) X F{B X D) 

t 

F {{A X B)x{C X D)) ^ F {{A x C) x [B x D)) 

Note that B and F C swap places in the above diagram: strong naturality impUes 
commutativity with pure computations. 

Thus in categorical terms applicative functors are strong lax monoidal functors. 
Every strong monad determines two of them, as the definition is symmetrical. The 
Monoidal laws and the above definition of pure imply that pure computations com- 
mute past effects: 

fmap swap (pure x-ku) = u-k pure x 

The proof (an exercise) makes essential use of higher-order functions. 



8 Conclusions 

We have identified Applicative functors, an abstract notion of effectful computation 

lying between Arrow and Monad in strength. Every Monad is an Applicative func- 
tor, but significantly, the Applicative class is closed under composition, allowing 
computations such as accumulation in a Monoid to be characterised in this way. 
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Given the wide variety of Applicative functors, it becomes increasingly useful 
to abstract Traversable functors — container structures through which Applicative 
actions may be threaded. Combining these abstractions yields a small but highly 
generic toolkit whose power we have barely begun to explore. We use these tools by 
writing types that not merely structure the storage of data, but also the properties 
of data that we intend to exploit. 

The explosion of categorical structure in functional programming: monads, comon- 
ads, arrows and now applicative functors should not, we suggest, be a cause for 
alarm. Why should we not profit from whatever structure we can sniff out, ab- 
stract and re-use? The challenge is to avoid a chaotic proliferation of peculiar and 
incompatible notations. If we want to rationalise the notational impact of all these 
structures, perhaps we should try to recycle the notation we already possess. Our 
I / «i ... u„ ] notation does minimal damage, showing when the existing syntax 
for applicative programming should be interpreted with an effectful twist. 
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